home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / dev / misc / FlexCat.lha / Lib / E32e.sd < prev    next >
Text File  |  1999-11-28  |  2KB  |  118 lines
  1. ##rem $Id: E32e.sd,v 1.2 1999/11/28 03:36:41 carlos Exp $
  2. ##stringtype E
  3. /****************************************************************
  4.    This file was created automatically by `%fv'
  5.    from "%f0".
  6.    Do NOT edit by hand!
  7. ****************************************************************/
  8.  
  9. OPT MODULE
  10. OPT REG=5
  11.  
  12.  
  13. ->*****
  14. ->** External modules
  15. ->*****
  16. MODULE 'locale' , 'libraries/locale'
  17. MODULE 'utility/tagitem'
  18.  
  19.  
  20. ->*****
  21. ->** Object definitions
  22. ->*****
  23. EXPORT OBJECT fc_type PRIVATE
  24.   id:LONG
  25.   str:PTR TO CHAR
  26. ENDOBJECT
  27.  
  28. EXPORT OBJECT catalog_%b PUBLIC
  29.   %i                    :PTR TO fc_type
  30. ENDOBJECT
  31.  
  32.  
  33. ->*****
  34. ->** Global variables
  35. ->*****
  36. DEF cat_%b:PTR TO catalog
  37.  
  38.  
  39. ->*****
  40. ->** Creation procedure for fc_type object
  41. ->*****
  42. PROC create(id,str:PTR TO CHAR) OF fc_type
  43.  
  44.   self.id:=id
  45.   self.str:=str
  46.  
  47. ENDPROC
  48.  
  49. ->*****
  50. ->** Procedure which returns the correct string according to the catalog
  51. ->*****
  52. PROC getstr() OF fc_type IS 
  53.   IF cat_%b THEN GetCatalogStr(cat_%b,self.id,self.str) ELSE self.str
  54.  
  55. PROC newcreate(id,stri)
  56. DEF fct:PTR TO fc_type
  57. ENDPROC NEW fct.create(id,stri)
  58.  
  59.  
  60. ->*****
  61. ->** Creation procedure for catalog_%b object
  62. ->*****
  63. PROC create() OF catalog_%b
  64.   cat_%b:=NIL
  65.  
  66.   self.%i:=newcreate(%d,{str_%e})
  67.  
  68. ENDPROC
  69.  
  70. PROC getCatalog() OF catalog_%b IS cat_%b
  71.  
  72. ->*****
  73. ->** Opening catalog procedure (exported)
  74. ->*****
  75. PROC open(loc=NIL:PTR TO locale,language=NIL:PTR TO CHAR ) OF catalog_%b
  76. DEF tag,
  77.     tagarg
  78.  
  79.   self.close()
  80.   IF localebase AND (cat_%b=NIL)
  81.     IF language
  82.       tag:=OC_LANGUAGE
  83.       tagarg:=language
  84.     ELSE
  85.       tag:=TAG_IGNORE
  86.     ENDIF
  87.  
  88.     cat_%b:=OpenCatalogA(loc,'%b.catalog',
  89.                          [OC_BUILTINLANGUAGE, %l,
  90.                           tag,                tagarg,
  91.                           OC_VERSION,         %v,
  92.                           TAG_DONE,0])
  93.  
  94.   ENDIF
  95.  
  96. ENDPROC
  97.  
  98.  
  99. ->*****
  100. ->** Closing catalog procedure
  101. ->*****
  102. PROC close() OF catalog_%b
  103.  
  104.   IF cat_%b
  105.     CloseCatalog(cat_%b)
  106.     cat_%b:=NIL
  107.   ENDIF
  108.  
  109. ENDPROC
  110.  
  111.  
  112. str_%e: CHAR %s,0
  113.  
  114.  
  115. /****************************************************************
  116.    End of the automatically created part!
  117. ****************************************************************/
  118.